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DECUS Program Library Write-up 


DECUS NO. 8-488 


"NEWPAGE" 

A program to readdress binary tapes 


Requirements : 4 K PDP—8 computer with teletype and paper tape reader/ 
punch. Occupies locations 4000-4173 in any field. Starting address 
= 4000 (the program can be used to relocate itself). 

Function : The program reads a binary tape on the low speed reader and 
punches out a relocated copy on the low speed punch. Address instruc¬ 
tions are augmented by a number set in the switch register. This aug¬ 
ment should be a multiple of octal 200 (one page); other values are 
reduced to the next lowest multiple of 200. The old checksum is ig¬ 
nored and a new one punched at the end of the output tape. The routine 
stops reading the source tape when it encounters the binary trailer 
at the end and halts, after punching checksum and trailer, at 4000. 

To restart, set SR for desired augment and press Continue. 

Features : Addresses on page 0 of the source tape are not relocated, 
since page 0 usually contains pointers, constants, etc., which must 
be addressable from several different core pages. If a relocated 
address, not originally on page 0, lands on page 0 or page 37 (octal), 
the computer halts with the first two digits of the new address dis¬ 
played in bits 6-11 of the AC. The user can then decide whether to 
proceed; if the new addresses are acceptable, he presses Continue on 
the console. A common cause of false alarms is the *200 punched by 
PAL T 1 * at the start of every binary tape, whatever the programmer's 
specified address may be. If one augments the addresses in such a 
tape by 7600 (= -200) , the dummy address 200 will be relocated to 0000. 
The computer will halt, but the user, by pressing Continue, can pro¬ 
ceed with the relocation. 

Field Pseudo-Ops. : These are ignored completely by NEWPAGE, as are 
all codes above 200 (stray ASCII characters, for instance). Field 
instructions (CDF, etc.) are correctly copied. 


High-speed Reader/Punch : A binary patch is supplied which will change 
input to the H.S.R. and output to the H.S.P. The leader and trailer 
are lengthened. 

Copying RIM tapes : It would appear that this could be done by depo¬ 
siting 7000 in location 4027. 

Use: Load address 4000 and start (PDP-8/E: clear + continue). The 
computer will halt immediately. Set the switch register for the 
number (octal) by which addresses are to be augmented. Check to 
see that the source tape is in the reader, the reader and punch turned 
on. Press Continue on the computer console. 












♦ 4000 


4000 


4001 

4002 

4003 

4004 

4005 

4006 

4007 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 


7402 HLT /LOAD ADDRESS AUGMENT INTO S.R.; 

/PRESS ’CONTINUE* ON CONSOLE. 
/AUGMENT WILL BE READ AS A MULTIPLE OF OCTAL 200* 
/1 •E« > AS AN INTEGER NO. OF PAGES. 


7604 


LAS 


7012 


RTR 


7012 


RTR 


7012 


RTR 


0361 


AND 

K76 

3366 


DCA 

AUGMNT 

6032 


KCC 


3367 


DCA 

FLAG 

3373 


DCA 

SUM 

6046 


TLS 


4322 


JMS 

LEADER 

4245 

PHASE 1* 

JMS 

TEST 

3370 


DCA 

STORE 1 

1367 


TAD 

FLAG 

7450 


SNA 


5214 


JMP 

PHASE1 

4245 

PHASE2* 

JMS 

TEST 

3371 


DCA 

ST0RE2 

4245 


JMS 

TEST 

3372 


DCA 

ST0RE3 

1367 


TAD 

FLAG 

7650 


SNA 

CLA 

5307 


JMP 

EXIT 

1370 

• 

TAD 

STORE 1 

1373 


TAD 

SUM 

3373 


DCA 

SUM 

1370 


TAD 

STORE1 

4340 


JMS 

PUNCH 

1371 


TAD 

ST0RE2 

1373 


TAD 

SUM 

3373 


DCA 

SUM 

1371 


TAD 

ST0RE2 

4340 


JMS 

PUNCH 

1372 


TAD 

ST0RE3 

3370 


DCA 

STORE1 

5221 


JMP 

PHASE2 

0000 

TEST* 

0 


4346 


JMS 

READ 

1360 


TAD 

M1 00 

7510 


SPA 


5262 


JMP 

DATA 

1360 


TAD 

M100 

7510 


SPA 


5264 


JMP 

ADRS 

7450 


SNA 


5260 


JMP 

TRAIL 

5246 


JMP 

TEST+1 


/A MULTIPLE OF 200 


/REACHED TRAILER YET? 
/YES 

/NOJ PUNCH DATA 


/CODE<100 

/77<CODE<200 
/CODE 200 
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4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 
4110 
41 1 1 

4112 

4113 

4114 

4115 

4116 

4117 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 


3367 

TRAIL* 

DCA 

FLAG 

1363 


TAD 

K 100 

1363 

DATA, 

TAD 

K1 00 

5645 


JMP 

I TEST 

2367 

ADRS* 

ISZ 

FLAG 

1363 


TAD 

K100 

1355 


TAD 

Ml 

7550 


SPA 

SNA 

5305 


JMP 

ZADRS 

7001 


I AC 


1366 


TAD 

AUGMNT 

0362 


AND 

K77 

1355 


TAD 

Ml 

7550 


SPA 

SNA 

5332 


JMP 

ERROR0 

7001 


I AC 


1357 

TEST37* 

TAD 

M76 

7500 


SMA 


5335 


JMP 

ERROR 

1361 


TAD 

K76 

5262 


JMP 

DATA 

7001 

ZADRS* 

I AC 


5262 


JMP 

DATA 

1373 

EXIT* 

TAD 

SUM 

7012 


RTR 


7012 


RTR 


7012 


RTR 


0362 


AND 

K77 

4340 


JMS 

PUNCH 

1373 


TAD 

SUM 

0362 


AND 

K77 

4340 


JMS 

PUNCH 

4322 


JMS 

LEADER 

5200 


JMP 

4000 

0000 

LEADER* 

0 


1356 


TAD 

M30 

3370 


DCA 

STORE1 

1364 


TAD 

K200 

4340 


JMS 

PUNCH 

2370 


ISZ 

STORE 1 

5325 


JMP 

• ~ 3 

5722 


JMP 

I LEADER 

7001 

ERROR0* 

I AC 


7402 


HLT 


5300 


JMP 

TEST37 

1361 

ERROR* 

TAD 

K76 

7402 


HLT 


5262 


JMP 

DATA 


/SKIP IF ADDRESS IS 
/NOT ON PAGE 0 

/RESTORE 1 
/READDRESS 

/LANDS ON PAGE 0? 

/YES 

/NOJ RESTORE 1 
/LANDS ON LAST PAGE? 

/YES 

/NOJ RESTORE 76 
/RESTORE 100 & PUNCH 
/RESTORE 1 

/RESTORE 100 & PUNCH 


/MISTAKE? IF NOT* CONTINUE 


/MISTAKE? 
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4140 

0000 

4141 

6041 

4142 

5341 

4143 

6046 

4144 

7200 

4145 

5740 

4146 

0000 

4147 

7000 

4150 

6031 

4151 

5350 

4152 

7200 

4153 

6036 

4154 

5746 

4155 

7777 

4156 

7750 

4157 

7702 

4160 

7700 

4161 

0076 

4162 

0077 

4163 

0100 

4164 

0200 

4165 

0207 

4166 

0000 

4167 

0000 

4170 

0000 

4171 

0000 

4172 

0000 

4173 

0000 


PUNCH, 0 

TSF 
JMP 
TLS 
CL A 
JMP 

READ, 0 

NOP 
KSF 
JMP 
CL A 
KRB 
JMP 


Ml, 

-1 

M30, 

-30 

M76, 

-76 

M100, 

-100 

K76, 

76 

K77, 

77 

K 100, 

100 

K200, 

200 

K207, 

207 

AUGMNT, 

0 

FLAG, 

0 

STORE 1, 

0 

ST0RE2, 

0 

ST0RE3, 

0 

SUM, 

0 


PAUSE 


.-1 


I PUNCH 


.-1 


I READ 


/FOR H.S.R. PATCH 


/THE COMPUTER HALTS IF AN AUGMENTED ADDRESS 
/LANDS ON PAGE 0 OR ON (OCTAL) PAGE 37. LIGHTS 
/6-11 OF THE ACCUMULATOR WILL SHOW THE FIRST TWO 
/DIGITS OF THE NEW ADDRESS. TO OVERRIDE THE HALT, 
/PRESS 'CONTINUE' ON THE CONSOLE. ADDRESSES ORIGI 
/NALLY LOCATED ON PAGE 0 ARE LEFT UNCHANGED. 




r 


ADRS 

4064 

AUGMNT 

4166 

DATA 

4062 

ERROR 

4135 

ERROR0 

4132 

EXIT 

4107 

flag 

4167 

K100 

4163 

K200 

4164 

K207 

4165 

K76 

4161 

K77 

4162 

LEADER 

4122 

Ml 

4155 

Ml 00 

4160 

M30 

4156 

M76 

4157 

PHASE1 

4014 

PHASE2 

4021 

PUNCH 

4140 

READ 

4146 

STOREJ 

4170 

ST0RE2 

4171 

STORE 3 

4172 

SUM 

4173 

TEST 

4045 

TEST37 

4100 

TRAIL 

4060 

ZADRS 

4105 


/PATCHES TO ’NEWPAGE* 




/READER 

AND 

PUNCH. 



*4007 



4007 

7000 

*4012 

NOP 


4012 

6026 

*4141 

PLS 


4141 

6021 


PSF 


4142 

5341 


JMP 

.-1 

4143 

6026 

*4147 

PLS 


4147 

6014 


RFC 


4150 

601 1 


RSF 


4151 

5350 


JMP 

.-1 

4152 

7200 


CLA 


4153 

6012 

*4123 

RRB 


4123 

1360 


TAD 

M1 00 



M100=4160 



M100 4160 


FOR HIGH 


SPEED 
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